home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / qbfe10.arc / STATLINE.BAS (.txt) < prev   
Encoding:
QuickBASIC Tokenized Source  |  1987-11-27  |  1.1 KB  |  19 lines
  1. StatLine
  2. CalcAttr
  3. attrib
  4. XqPrint
  5. scrnmode
  6. StatLine
  7. Calculate the color attributes.n
  8. If a nul stat$ was passed, thent
  9. reset the status line (row) to a
  10. blank black line (turn the status
  11. CALL XqPrint(text$, row, 1, attrib, page, scrnmode)'line off). (PROBAS)
  12. (ADVBAS)
  13. Status line flag off.
  14. Status line flag on.
  15. excessive. If it is, chop it off.p
  16. Calculate center of line.e
  17. Center stat$ in a 80 character
  18. line and print it.
  19.